home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GENESIS.cpt / ExampleStack DNA next >
Encoding:
Text File  |  1988-11-10  |  4.4 KB  |  238 lines  |  [TEXT/MACA]
  1. 2
  2. main
  3. help
  4. 2
  5. 3
  6. page,rectangle,253,9,502,328,false,true,false,false,rectangle
  7. Geneva,left,10,bold
  8.  
  9. *SCRIPTEND
  10. address,shadow,13,208,236,293,false,false,false,false,shadow
  11. Chicago,left,12,plain
  12.  
  13. *SCRIPTEND
  14. stackname,transparent,21,17,244,112,true,false,false,false,transparent
  15. Geneva,center,24,bold,shadow
  16.  
  17. *SCRIPTEND
  18. 10
  19. Cover,250,9,503,331,shadow,true,true,0
  20. Chicago,center,12,plain
  21. on mouseUp
  22.   set lockscreen to true
  23.   hide bkgnd field "stackname"
  24.   hide me
  25.   hide bkgnd button "help"
  26.   show bkgnd button "opencover"
  27.   show bkgnd button "phone"
  28.   show bkgnd button "address"
  29.   show bkgnd button "new"
  30.   show bkgnd button "goleft"
  31.   show bkgnd button "goright"
  32.   show bkgnd button "search"
  33.   set lockscreen to false
  34. end mouseUp
  35.  
  36. *SCRIPTEND
  37. opencover,0,9,253,331,shadow,true,false,0
  38. Chicago,center,12,plain
  39. on mouseUp
  40.   set lockscreen to true
  41.   hide me
  42.   hide bkgnd button "address"
  43.   hide bkgnd button "phone"
  44.   show bkgnd button "help"
  45.   show bkgnd button "cover"
  46.   hide bkgnd button "x"
  47.   hide bkgnd field "address"
  48.   hide bkgnd button "new"
  49.   hide bkgnd button "goleft"
  50.   hide bkgnd button "goright"
  51.   hide bkgnd button "search"
  52.   show bkgnd field "stackname"
  53.   set lockscreen to false
  54.   
  55. end mouseUp
  56.  
  57. *SCRIPTEND
  58. phone,102,51,140,83,transparent,true,false,1017
  59. Chicago,center,12,plain
  60. on mouseUp
  61.   ask "Dial what number?"
  62.   dial it
  63. end mouseUp
  64.  
  65. *SCRIPTEND
  66. address,102,108,140,140,transparent,true,false,3430
  67. Chicago,center,12,plain
  68. on mouseUp
  69.   if visible of bkgnd field "address" is false then
  70.     hide bkgnd button "opencover"
  71.     show bkgnd field "address"
  72.     show bkgnd button "x"
  73.   else
  74.     show bkgnd button "opencover"
  75.     hide bkgnd field "address"
  76.     hide bkgnd button "x"
  77.   end if
  78.   
  79. end mouseUp
  80.  
  81. *SCRIPTEND
  82. x,116,115,129,134,transparent,true,false,1018
  83. Chicago,center,12,plain
  84. on mouseUp
  85.   send mouseup to bkgnd button "address"
  86. end mouseUp
  87.  
  88. *SCRIPTEND
  89. new,109,20,132,40,transparent,true,false,1015
  90. Chicago,center,12,plain
  91. on mouseUp
  92.   answer "Create an empty card?" with "No" or "Yes"
  93.   if it is "Yes" then
  94.     doMenu "New Card"
  95.     put "LITTLE ADDRESS STACK" into bkgnd field "stackname"
  96.   end if
  97.   
  98. end mouseUp
  99.  
  100. *SCRIPTEND
  101. goright,191,25,223,56,transparent,true,false,16560
  102. Chicago,center,12,plain
  103. on mouseUp
  104.   go to next card of this background
  105. end mouseUp
  106.  
  107. *SCRIPTEND
  108. goleft,158,25,190,56,transparent,true,false,15420
  109. Chicago,center,12,plain
  110. on mouseUp
  111.   go to previous card of this background
  112. end mouseUp
  113.  
  114. *SCRIPTEND
  115. search,177,65,205,93,transparent,true,false,8538
  116. Chicago,center,12,plain
  117. on mouseUp
  118.   ask "Find what?" with "Scott Neufeld"
  119.   find chars it in bkgnd field "page"
  120.   
  121. end mouseUp
  122.  
  123. *SCRIPTEND
  124. HELP,95,207,149,257,shadow,true,true,23078
  125. Chicago,center,12,plain
  126. on mouseUp
  127.   go to first card of background "HELP"
  128. end mouseUp
  129.  
  130. *SCRIPTEND
  131. 1
  132. 2
  133. title,transparent,19,14,493,64,false,false,false,false,transparent
  134. Geneva,center,24,shadow
  135.  
  136. *SCRIPTEND
  137. bkgnd field id 2,transparent,19,75,493,233,true,false,false,false,transparent
  138. Geneva,left,12,plain
  139.  
  140. *SCRIPTEND
  141. 1
  142. goback,460,315,508,338,transparent,true,false,1012
  143. Chicago,center,12,plain
  144. on mouseUp
  145.   go to first card of background "MAIN"
  146. end mouseUp
  147.  
  148. *SCRIPTEND
  149. 0,0
  150. 3
  151.  
  152. Scott Neufeld is the author of the following ShareWare stacks:
  153.  
  154. HyperCat
  155. HD Controller + v4.0
  156. PICT Control! v1.0
  157. GENESIS .50
  158. Extractor v1.0
  159.  
  160. And this little ditty. This stack is an example stack that accompanied GENESIS
  161. version .50. Consider it free!
  162.  
  163.  
  164.  
  165. ENJOY!
  166. *ENDCONTENT
  167. Scott Neufeld
  168. 6 Lake Road
  169. Peekskill, NY 10566
  170. (914) 737-6770
  171. (607) 777-9912
  172. *ENDCONTENT
  173. LITTLE ADDRESS STACK
  174. *ENDCONTENT
  175. 3
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189. *ENDCONTENT
  190.  
  191. *ENDCONTENT
  192. LITTLE ADDRESS STACK
  193. *ENDCONTENT
  194. 2
  195. A LITTLE HELP
  196. *ENDCONTENT
  197. Look, this stack is really easy to use. Click on the Cover. Up will pop a
  198. bunch of buttons and a page where you can type notes. The phone icon lets you dial the phone, the address card button displays an address field (this
  199. address field belongs to the notes), the arrow keys direct your motion, 
  200. the round button lets you create a blank page, and after you have clicked
  201. on the address card button, you click it again to make the address disappear. To close the book, click on the cover. The magnifying glass lets you search for text.
  202.  
  203. This stack is free with the ShareWare copy of GENESIS v.50.
  204.  
  205. *ENDCONTENT
  206. 6
  207. 1,1
  208. mycard
  209.  
  210. *SCRIPTEND
  211. 1,2
  212. card id 3285
  213.  
  214. *SCRIPTEND
  215. 1,3
  216. card id 3768
  217.  
  218. *SCRIPTEND
  219. 2,1
  220. mycard
  221.  
  222. *SCRIPTEND
  223. 2,2
  224. card id 3285
  225.  
  226. *SCRIPTEND
  227. 2,3
  228. card id 3768
  229.  
  230. *SCRIPTEND
  231.  
  232. *SCRIPTEND
  233.  
  234. *SCRIPTEND
  235.  
  236. *SCRIPTEND
  237. *END!
  238.